home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / 3MINCPY.ARC / C35 5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  649 b   |  27 lines

  1. 10 JSR INIT
  2. 50 LDA #$00;1ST BLOCK ADDRESS $0CB9
  3. 60 LDX #$05;$0500 IN DISK
  4. 70 LDY #$03;SEND THREE BLOCKS
  5. 80 JSR PRGDSK
  6. 90 JMP SRC
  7. 100 J4 JSR SOURCE
  8. 110 SRC JSR STSCR;BLANK THE SCREEN
  9. 120 JSR ERR;CHECK FOR TRK & SEC ERROR
  10. 130 JSR SETBUF
  11. 140 LDA PASS;CHECK WHICH PASS WE'RE ON
  12. 150 BNE NOT0;IF NOT 0 THEN GOTO DESTINATION
  13. 160 JSR STSCR2;SET SCREEN TO NORMAL
  14. 170 LDA #$03;TIMES 2 = $0F23 WRITE ROUTINE
  15. 180 LDX #$05;$0500 IN DISK
  16. 190 LDY #$02;SEND TWO BLOCKS
  17. 200 JSR PRGDSK
  18. 210 JSR DEST
  19. 220 JSR SCR
  20. 230 .BYTE 13 13
  21. 240 .BYTE "[159]      FORMATTING DISK TO [158]TRACK 40 "
  22. 250 .BYTE 13 0
  23. 260 LDX #$00
  24. 300 LDY #$05
  25. 310 JSR MEMEXC;EXECUTE DISK PROGRAM AT $0500
  26. 320 .FILE C35 6
  27.